uses crt;
var
a: array [1..10,1..10] of integer;
i,j,min,n,m,max: integer;
begin
ClrScr;
randomize;
Write('Razmer massiva (n,m)');
Readln(n,m);
writeln('zapolnenie massiva');
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]);
write(' ');
end;
end;
writeln;
max:=1;
min:=100;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<min then
min:=a[i,j];
if a[i,j]>max then
max:=a[i,j];
end;
Writeln('Raznost ',max-min);
Readln;
end.